home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 2 (Reseller) / Apple R&P Lib Reseller v2.0.iso / 3-Demos / Third Party Demos / Information Management / Wingz / SDScript / Script02 (.txt) < prev    next >
Wingz Script  |  1989-06-10  |  896b  |  33 lines
  1. WNGZWZSC01b1
  2. Demo02
  3. SDOpen
  4. Segway
  5. DoSound
  6. define n, off
  7. call sd:SDOpen("Demo02",1)
  8. unselect
  9. wait for (sd:Segway * 1.0) seconds
  10. off = 1
  11. repaint off
  12. go to cell r32750c32763
  13. unselect
  14. column numbers
  15. select range r32768c32768
  16. repaint on
  17. repaint window
  18. call sd:DoSound("Big")
  19. wait for (sd:Segway * 0.5) seconds
  20. for n = 0 to 10
  21.     if off
  22.         fill bg red()
  23.         wait for .1 second
  24.         off = 0
  25.     else
  26.         fill bg white()
  27.         wait for .1 second
  28.         off = 1
  29.     end if
  30. end for
  31. wait for (sd:Segway * 1) seconds
  32. close now
  33.